home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / LgcyPlus / disk2 / NUMDIAL._ / NUMDIAL.
Encoding:
Text File  |  2001-03-02  |  583 b   |  21 lines
  1. 10  ! ***************************************
  2. 20  ! Example: NUMBER Dialog
  3. 30  !
  4. 40  ! This program produces a NUMBER dialog and
  5. 50  ! prompts the user for a number. The number
  6. 60  ! entered is displayed.
  7. 70  !
  8. 80  ! *****************************************
  9. 90  !
  10. 100   INTEGER Btn
  11. 110   DIM P$[25]
  12. 120   P$="Please input a number:"
  13. 130   DIALOG "NUMBER",P$,Btn;SET ("TITLE":" Example: NUMBER Dialog"),RETURN ("VALUE":X)
  14. 140   SELECT Btn
  15. 150   CASE 0
  16. 160     DISP "Number entered:",X
  17. 170   CASE 1
  18. 180     DISP "Numeric input canceled"
  19. 190   END SELECT
  20. 200   END
  21.